MIDIOutGetDeviceName
(Function)
Purpose: Returns the name of a MIDI-Out device.
Syntax: StringVar = CtlName.MIDIOutGetDeviceName(DeviceNumber As Integer)
Arguments: DeviceNumber is an integer holding the device which name to get.
Example:
'Fill a ComboBox with MIDI-Out devices
Dim
intTemp
As
Integer
Dim
intDeviceBase
As
Integer
'Check if MIDI Mapper is present
If
Len(SoundCard1.MIDIOutGetDeviceName (-1))
Then intDeviceBase =
-1
For
intTemp
=
intDeviceBase
To
SoundCard1.MIDIOutNumOfDevices
____Combo1.AddItem
SoundCard1.MIDIOutGetDeviceName (intTemp)
Next intTemp
Comments: Returns a zerostring ("") if DeviceNumber is out of range.
See Also:
MIDIOutNumOfDevices
MIDIInNumOfDevices
MIDIInGetDeviceName